Jasper Idol Series 1: Taeko Nishino/Jasper Idol Series 1: Taeko Nishino - Disc 2.iso/DATA/PHOTO-N/00033.ls

Text File | 1995-06-18 | 1.2 KB | 55 lines

on CHECKM
  global XXX
  if the soundBusy of 1 = 1 then
    nothing()
  else
    sound playFile 1, XXX
  end if
end

on cursorset
  cursor(-1)
  set the cursor of sprite 7 to 280
  set the cursor of sprite 8 to 280
  set the cursor of sprite 9 to 280
  set the cursor of sprite 10 to 280
  set the cursor of sprite 14 to 280
  set the cursor of sprite 15 to 280
  set the cursor of sprite 16 to 280
  set the cursor of sprite 17 to 280
end

on cursorset2
  cursor(-1)
  set the cursor of sprite 7 to 280
  set the cursor of sprite 8 to 280
  set the cursor of sprite 9 to 280
  set the cursor of sprite 10 to 280
  set the cursor of sprite 11 to 280
  set the cursor of sprite 12 to 280
  set the cursor of sprite 13 to 280
  set the cursor of sprite 14 to 280
  set the cursor of sprite 15 to 280
  set the cursor of sprite 16 to 280
end

on Scheck
  if the volume of sound 1 = 0 then
    go("SL0")
  else
    if the volume of sound 1 = 100 then
      go("SL2")
    else
      if the volume of sound 1 = 180 then
        go("SL4")
      else
        if the volume of sound 1 = 250 then
          go("SL6")
        else
          go(the frame)
        end if
      end if
    end if
  end if
end